home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 30 / Amiga Format AFCD30 (Sep 1998, Issue 114).iso / -screenplay- / shareware / abuse / lisp / french.lsp < prev    next >
Lisp/Scheme  |  1998-07-04  |  23KB  |  437 lines

  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licensing information for more details on usage rights
  3.  
  4. ;; all messages that need translation here
  5. ;; Latest version of this file is "V-E"  (version E=1.46)
  6.  
  7.  
  8. (select section    
  9.     ('game_section
  10.  
  11.      /********** New for Version E (1.51)   **************/
  12.      (setq level_name         "Nom du niveau")
  13.      (setq FILENAME           "NOM DU FICHIER")
  14.      (setq CHAT               "CONVERSER")
  15.      (setq resync             "En train de synchroniser, veuillez attendre...")
  16.      (setq slack              "D‚connecter gens oisifs")
  17.      (setq hold!              "Attendez !")
  18.      (setq waiting            "Chargement des donn‚es...")
  19.      (setq Error              "Erreur")
  20.      (setq locating           "Essaie de localiser serveur %s, veuillez attendre\n")
  21.      (setq unable_locate      "Impossible … trouver")
  22.      (setq located            "Serveur trouv‚ ! En train de charger les donn‚es....\n")
  23.      (setq no_prot            "Pas de protocoles r‚seau install‚s\n")
  24.      (setq Installed          "Install‚ ")
  25.      (setq Not_Installed      "Pas install‚ ")
  26.      (setq calc_crc           "R‚seau : Contr“le CRC des fichiers")
  27.      (setq edit_saved         "Changements sauvegard‚s")
  28.      (setq saveas_name        "Enregistrer sous")
  29.      (setq l_light            "LumiŠre")
  30.      (setq l_fg               "PP")
  31.      (setq l_bg               "AP")
  32.      (setq New?               "Nouveau ?")
  33.      (setq l_EDIT             "Editer")
  34.  
  35.      /********** New for Version D (1.46)   **************/
  36.  
  37.      (setq ant_hide           "Cach‚ (1=vrai,0=faux)")
  38.      (setq ant_total          "Total")
  39.      (setq ant_type           "Type (0..7)")
  40.      (setq obj_frames         "Images jusqu'… l'arriv‚e")
  41.      (setq obj_frame          "Image actuelle")
  42.      (setq respawn_reg        "Images … r‚g‚n‚rer")
  43.      (setq conc_flash         "Eclair[1=on]")
  44.      (setq bomb_blink         "Clignotement")
  45.      (setq lightin_speed      "Vitesse ‚clair 0..9")
  46.      (setq gate_delay_time    "Temps d‚lai")
  47.      (setq gate_pulse_speed   "Vitesse pulsation")
  48.      (setq pusher_speed       "Pouss‚e de vitesse")
  49.      (setq spring_yvel        "R‚gler yvel … ?")
  50.      (setq train_msg_num      "M‚ssage numero")
  51.      (setq obj_holder_xoff    "x d‚cal‚")
  52.      (setq obj_holder_yoff    "y d‚cal‚ ")
  53.      (setq obj_holder_del     "Effacez-le (1=oui)")
  54.      (setq spray_delay        "D‚lai")
  55.      (setq spray_start        "D‚but angle")
  56.      (setq spray_end          "Fin angle")
  57.      (setq spray_speed        "Vitesse angle")
  58.      (setq spray_cangle       "Angle actuel")
  59.      (setq d_track_speed      "Vitesse ")
  60.      (setq track_fspeed       "Vitesse de tir")
  61.      (setq track_burst        "D‚gƒts de l'explosion ")
  62.      (setq track_cont         "Continuer d‚lai")
  63.      (setq track_sangle       "D‚but angle")
  64.      (setq track_eangle       "Fin angle")
  65.      (setq track_cangle       "Angle actuel")
  66.      (setq jug_throw_spd      "Vitesse pour lancer (0..255)")
  67.      (setq jug_throw_xv       "Lancer xvel")
  68.      (setq jug_throw_yv       "Lancer yvel")
  69.      (setq jug_stat           "Immobile ? (1=oui,0=non)")
  70.      (setq rob_noturn         "Pas de demi-tour (1=on)")
  71.      (setq rob_hide           "D‚but cach‚ (1=cach‚,0=visible)")
  72.      (setq who_fdelay         "D‚lai du tir")
  73.      (setq who_bdelay         "D‚lai de l'explosion")
  74.      (setq who_btotal         " D‚gƒts de l'explosion ")
  75.      (setq who_mxv            "Max xvel")
  76.      (setq who_myv            "Max yvel")
  77.      (setq wrob_fdelay        "D‚lai du tir")
  78.      (setq wrob_bdelay        "D‚lai de l'explosion")
  79.      (setq wrob_btotal        "D‚gƒts de l'explosion" )
  80.      (setq wrob_mxv           "Max xvel")
  81.      (setq wrob_myv           "Max Yvel")
  82.      (setq dimmer_step_amount "Nombre de marches")
  83.      (setq dimmer_steps       "Marches sombres")
  84.      (setq dimmer_dist        "Activer distance")
  85.      (setq dimmer_dedist      "D‚sactiver distance")
  86.      (setq dimmer_silent      "Mode silencieux (1=oui,0=non)")
  87.      (setq restart_station    "Num‚ro station")
  88.      (setq next_level         "Prochain niveau")
  89.      (setq plat_speed         "Vitesse")
  90.      (setq plat_2speed        "DeuxiŠme vitesse")
  91.      (setq plat_pos           "Pos actuelle (0..vitesse)")
  92.      (setq plat_wait          "Temps max d'attente")
  93.      (setq amb_num            "Num‚ro d'effet sonore (0-15)")
  94.      (setq amb_vol            "Volume (0-127)")
  95.      (setq amb_rep            "D‚lai r‚p‚t‚ (0=pas de r‚p‚tition)")
  96.      (setq amb_rand           "D‚lai al‚atoire (0=aucun)")
  97.      (setq switch_reset       "Temps de rer‚glage")
  98.      (setq sens_onxd          "(on) x dist")
  99.      (setq sens_onyd          "(on) y dist")
  100.      (setq sens_offxd         "(off) x dist")
  101.      (setq sens_offyd         "(off) y dist")
  102.      (setq sens_reset         "(off) Temps de rer‚glage")
  103.      (setq sens_unoff         "Ind‚sactivable (1=oui)")
  104.      (setq sens_cs            "Etat actuel")
  105.      (setq tp_amb             "R‚glage ambiance")
  106.      
  107.  
  108.            
  109.      (setq ai_xvel            "Xvel      ")
  110.      (setq ai_yvel            "Yvel      ")
  111.      (setq ai_xacel           "Xacel     ")
  112.      (setq ai_yacel           "Yacel     ")
  113.      (setq ai_stime           "Temps ST  ")
  114.      (setq ai_gravity         "Gravit‚   ")
  115.      (setq ai_health          "Sant‚     ")
  116.      (setq ai_morph           "P Morph   ")
  117.      (setq ai_type            "Type IA   ")
  118.      (setq ai_state           "Etat IA   ")
  119.      (setq ai_fade            "Fondu 0-15")
  120.      
  121.      (setq a_ambient          "Ambiant     ")
  122.      (setq a_aspeed           "Vitesse ambiante")
  123.      (setq a_view_xoff        "Vue xoff    ")
  124.      (setq a_view_yoff        "Vue yoff    ")
  125.      (setq a_view_xspd        "Vue vitesse x ")
  126.      (setq a_view_yspd        "Vue vitesse y ")
  127.      (setq saved_game         "Jeu sauvegard‚ savegame.spe")
  128.      (setq saved_level        "Niveau sauvegard‚ '%s'..\n")
  129.      (setq _scroll            "D‚filer")    ; as in left-right, up-down
  130.      (setq ap_width           "Largeur ")
  131.      (setq ap_height          "Hauteur")
  132.      (setq ap_name            "Nom")
  133.      (setq ap_pal             "Ajouter palette")
  134.      (setq mouse_at           "Position la souris %d, %d\n")
  135.      
  136.  
  137.      (setq l_links            "Liens")
  138.      (setq l_light            "LumiŠre")
  139.      (setq l_char             "Pers")
  140.      (setq l_back             "Retour")
  141.      (setq l_bound            "Li‚")
  142.      (setq l_fore             "Avant")
  143.  
  144.  
  145.      (setq SHOW?              "AFFICHER ?")
  146.      (setq back_loss (concatenate 'string "Ce taux de d‚filement diminue la taille de la care d'arriŠre 
  147. plan \n"
  148.                       "Des dalles risquent d'ˆtre perdues, ˆtes-vous s–r(e) de vouloir le faire ?\n"))
  149.      (setq WARNING            "AVERTISSEMENT")
  150.      (setq x_mul              "X mul")    ; X multiple
  151.      (setq y_mul              "Y mul")
  152.      (setq x_div              "X div")    ; X divisor
  153.      (setq y_div              "Y div")
  154.  
  155.      /*********** New for Version 1.45 ***********************/
  156.  
  157.  
  158.  
  159.      (setq file_top           "Fichier")
  160.      (setq edit_top           "Editer")
  161.      (setq window_top         "Fenˆtres")
  162.      (setq menu1_load         "Lancer niveau")     
  163.      (setq menu1_save         "Sauvegarder niveau (S)")
  164.      (setq menu1_saveas       "Enregistrer sous")
  165.      (setq menu1_savegame     "Sauvegarder jeu")
  166.      (setq menu1_new          "Nouveau niveau")
  167.      (setq menu1_resize       "Taille de la carte")
  168.      (setq menu1_suspend      "D‚couple toutes les fonctions")
  169.      (setq menu1_toggle       "Activer/d‚sactiver mode jeu  (TAB)")
  170.      (setq menu1_savepal      "Sauvegarder palettes         ")
  171.      (setq menu1_startc       "D‚but de l'ant‚m‚moire   ")
  172.      (setq menu1_endc         "Fin de l'ant‚m‚moire     ")
  173.      (setq menu1_quit         "Sortir      (Alt-X)")
  174.  
  175.      (setq menu2_light        "Activer/d‚sactiver ‚clairage")
  176.      (setq menu2_scroll       "R‚gler vitesse de d‚filement")
  177.      (setq menu2_center       "Centrer vue sur joueur          (c)")
  178.      (setq menu2_addpal       "Ajouter palette")
  179.      (setq menu2_delay        "Activer/d‚sactiver d‚lais       (D)")
  180.      (setq menu2_god          "Invuln‚rable")
  181.      (setq menu2_clear        "Activer/d‚sactiver armes        (Maj-Z)")
  182.      (setq menu2_mscroll      "D‚filement de la carte avec la souris")
  183.      (setq menu2_lock         "Verrouiller fenˆtres palettes")
  184.      (setq menu2_raise        "Elever toutes les dalles")
  185.      (setq menu2_names        "Activer/d‚sactiver noms d'objets")
  186.      (setq menu2_map          "Activer/d‚sactiver carte        (?)")
  187.      (setq menu2_view         "Activer/d‚sactiver changement de vue")
  188.      (setq menu2_light        "Activer/d‚sactiver ‚clairage ambiant")
  189.      (setq menu2_fps          "Afficher nombre d'objets")
  190.  
  191.      (setq menu3_fore         "Premier plan     (f)")
  192.      (setq menu3_back         "ArriŠre-plan     (b)")
  193.      (setq menu3_layers       "Afficher options (L)")
  194.      (setq menu3_light        "Eclairage        (l)")
  195.      (setq menu3_pal          "Palettes         (p)")
  196.      (setq menu3_objs         "Objets           (o)")
  197.      (setq menu3_console      "Console          (!)")
  198.      (setq menu3_toolbar      "Barre d'outils   (q)")
  199.      (setq menu3_prof         "Profil           (P)")
  200.      (setq menu3_save         "Sauvegarder positions")
  201.  
  202.  
  203.  
  204.  
  205.      (setq level_size "Taille du niveau")
  206.                            ; 012345678901234567 (please keep same allignment of Name level & total)
  207.      (setq score_header "Nom          Total du niveau")   ; V-E 
  208.      (setq space_cont "Appuyez sur la BARRE D'ESPACE pour continuer")        ; V-E
  209.      (setq no_saved "Pas de jeu sauvegard‚")
  210.  
  211.      (setq lvl_2   "Petit") ; V-C added
  212.      (setq lvl_4   "Moyen") ; V-C added
  213.      (setq lvl_8   "Vaste") ; V-C added
  214.  
  215.      (setq status  "Statut..")    ; V-A added
  216.      (setq Station "Secteur #")   ; V-A added
  217.      (setq secured " Termin‚ !")   ; V-A added
  218.      (setq loading "En train de charger %s")  ; V-A added
  219.  
  220.          (setq gamma_msg "S‚lectionnez la couleur la plus sombre visible\nsur l'‚cran, puis cliquez sur la case … cocher")
  221.  
  222.  
  223. (setq telep_msg "Appuyez sur la flŠche bas pour vous t‚l‚porter")
  224.  
  225.          (defun get_train_msg (message_num)
  226.            (select message_num    
  227.                    (0 "Pointez le canon avec la souris, tirez avec le bouton gauche")
  228.                    (1 "R‚cup‚rez des munitions pour augmenter votre cadence de tir")
  229.                    (2 "Appuyez sur la flŠche bas pour activer l'interrupteur")
  230.                    (3 "Appuyez sur la flŠche bas pour sauvegarder le jeu")
  231.                    (4 "Appuyez sur la flŠche bas pour activer la plate-forme")
  232.                    (5 "Appuyez sur bouton droit, maintenez pour utiliser un pouvoir")
  233.                    (6 "Utilisez les touches CTRL ou INSER pour s‚lectionner les armes")
  234.                    (7 "Appuyez sur la flŠche haut pour monter aux ‚chelles")
  235.                    (8 "Appuyez sur la flŠche bas pour activer !")
  236.                    (9 "Tirez sur les parois destructibles pour les d‚molir")
  237.                    (10 "Tirez sur l'interrupteur sph‚rique pour l'activer")
  238.                    (11 "Appuyez sur la flŠche bas pour vous t‚l‚porter")
  239.                    ))
  240.      (setq not_there       "Ce jeu s'est arrˆt‚")
  241.      (setq max_error       "Nombre max. de joueurs doit ˆtre sup‚rieur ou ‚gal au nombre min. de joueurs") ; V-C changed
  242.  
  243.  
  244.      ;(setq min_error       "Nombre min. de joueurs doit ˆtre entre 1 et 8\nNombre min. de joueurs doit ˆtre inf‚rieur ou ‚gal au nombre max. de joueurs")  ; V-A changed, V-B deleted
  245.  
  246.      (setq port_error      "Num‚ro du jeu doit ˆtre entre 1 et 9")       ; V-A changed
  247.      (setq kill_error      "Le quota de morts doit ˆtre entre 1 et 99")      ; V-A changed
  248.      (setq name_error      "CaractŠres non valides")         ; V-B changed
  249.      (setq game_error      "CaractŠres non valides pour le nom du jeu")         ; V-B added
  250.      (setq input_error     "Erreur de donn‚es")
  251.      (setq ok_button       "OK")
  252.      (setq cancel_button   "ANNULER")
  253.      (setq kills_to_win    "Quota de morts requis pour changer de niveau")
  254.      (setq max_play        "Nombre max. de joueurs")
  255.      (setq min_play        "\nNombre min. de joueurs")          ; V-B (added \n)
  256.      (setq use_port        "Num‚ro du jeu")
  257.      (setq your_name       "Votre nom")
  258.  
  259. (setq max_players     "Le serveur a d‚j… atteint le nombre maximal de joueurs, ressayez plus tard\n")
  260.          (setq net_not_reg     "D‚sol‚, vous ne pouvez pas jouer au jeu sur le r‚seau avec une version d‚mo\n")
  261.          (setq min_wait        "Veillez attendre pour %d participant(s) !")
  262.          (setq lev_complete    "Niveau termin‚ !")
  263.          (setq no_low_mem         (concatenate 'string "Gestionnaire de m‚moire : Pas assez de m‚moire disponible\n"
  264.                                            "  Suggestions...\n"
  265.                                            "    - cr‚ez une disquette de d‚marrage (consultez le manuel)\n"
  266.                                            "    - enlevez les programmes r‚sidant en m‚moire et les gestionnaires qui ne sont pas n‚cessaires pour ABUSE\n"
  267.                                            "    - ajoutez de la m‚moire … votre systŠme\n"))
  268.          (setq no_mem    (concatenate 'string "Gestionnaire de m‚moire : D‚sol‚, vous n'avez pas assez de m‚moire disponible pour\n"
  269.                                            "  Suggestions...\n"
  270.                                            "    - cr‚ez une disquette de d‚marrage (consultez le manuel)\n"
  271.                                            "    - enlevez les programmes r‚sidant en m‚moire et les gestionnaires qui ne sont pas n‚cessaires pour ABUSE\n"
  272.                                            "    - ajoutez de la m‚moire … votre systŠme\n"))
  273.  
  274.          ; this is not used right now...
  275.          ;(setq server_not_reg  (concatenate 'string "D‚sol‚, le serveur affiche la version d‚mo d'Abuse,\n"
  276.          ;                                           "pour ‚viter des problŠmes de compatibilit‚, veuillez utiliser l'option -share\n"))
  277.  
  278.          (setq server_port     "Port du serveur")
  279.          (setq server_name     "Nom du jeu")              ; V-B
  280.          (setq Networking      "Jeu sur r‚seau")
  281.          (setq server          "Commencer nouveau jeu")
  282.          (setq client          "Participer au jeu en cours ?")
  283.          (setq single_play     " Un seul joueur ")
  284. (setq single_play     "    Sortir du jeu sur r‚seau    ")  ; V-A 
  285.          (setq cancel_net      "      Annuler        ")
  286.  
  287.          (setq ic_return       "Retourner au jeu")
  288.          (setq ic_quit         "Sortir du jeu")
  289.          (setq ic_volume       "Contr“le du volume")
  290.          (setq ic_gamma        "Luminosit‚")
  291.          (setq ic_easy         "Difficult‚ : Mauviette")
  292.          (setq ic_medium       "Difficult‚ : Pas de problŠme")
  293.          (setq ic_hard         "Difficult‚ : C'est pas gagn‚")
  294.          (setq ic_extreme      "Difficult‚ : Cauchemar")  ; don't make any strings longer than this!
  295.          (setq ic_load         "Charger jeu sauvegard‚")
  296.          (setq ic_start        "D‚marrer nouveau jeu")
  297.          (setq ic_sell         "G‚n‚rique")
  298.          (setq ic_networking   "Jeu sur r‚seau")
  299.          (setq no_file         "Fichier introuvable '%s'")
  300.          (setq SFXv            "Son")
  301.          (setq MUSICv          "Volume")
  302.  
  303.          (setq to_be_continued "A suivre.....")
  304.          (setq no_edit         "Cette version du jeu est d‚pourvue de l'‚diteur")
  305.          (setq no_hirez        "La haute r‚solution n'est disponible qu'avec le mode ‚diter (-edit)") 
  306.          (setq no2             "Ne peut pas utiliser -2 avec -edit")
  307.          (setq no_pals         "Aucune palette d‚finie")
  308.          (setq unchop1         "ussage : unchop xsize ysize\n")
  309.          (setq size1           "ussage : taille largeur hauteur\n")
  310.          (setq name_now        "Le niveau actuel est '%s'\n")
  311.          (setq esave           "Editer sauvegarde : ‚criture de edit.lsp\n")
  312.          (setq nd_player       "Impossible d'effacer joueur !\n")
  313.          (setq d_nosel         "Pas d'objet ou de lumiŠre s‚lectionn‚s … effacer.")
  314.          (setq forward?        "Avancer quel objet ?")
  315.          (setq back?           "Reculer quel objet ?") 
  316.          (setq aitype?         "Type IA pour qui ?")
  317.          (setq prof_off        "Cache d‚sactiv‚")
  318.          (setq prof?           "Cache n'est pas actif !")
  319.          (setq sure?           "Etes-vous s–r ?")
  320.          (setq width_          "Largeur")
  321.          (setq height_         "Hauteur")
  322.          (setq suspend_on      "Les objets li‚s ne seront pas ex‚cut‚s")
  323.          (setq suspend_off     "Interrompre mode off")
  324.          (setq quit_title      "Sortir ?")
  325.          (setq YES             "OUI")
  326.          (setq NO              "NON")     
  327.          (setq seqs_off        "S‚quences photos off\n")
  328.          (setq seqs_on         "S‚quences photos on (1 toutes les 5 sec)\n")
  329.          (setq ms_on           "D‚filement permis\n")
  330.          (setq ms_off          "D‚filement non-permis\n")
  331.          (setq pal_lock        "Les palettes sont verrouill‚es")
  332.          (setq pal_unlock      "Les palettes sont d‚verrouill‚es")
  333.          (setq vs_dis          "Changement de vue d‚sactiv‚")
  334.          (setq vs_en           "Changement de vue activ‚")
  335.          (setq fg_r            "Toutes les dalles du premier plan seront ‚lev‚es")
  336.          (setq fg_l            "Toutes les dalles du premier plan seront abaiss‚es")
  337.          (setq no_clone        "Impossible de cloner joueur !\n")
  338.          (setq no_edit.lsp     "Impossible d'ouvrir edit.lsp pour ‚crire")
  339.          (setq missing_sym     "Manque symbole pour langage !")
  340.          (setq missing_c       "Pas d'information copyright pour ce niveau, ne peut charger\n")
  341.          (setq delay_off       "D‚lai off")
  342.          (setq delay_on        "D‚lai on")
  343.          (setq too_big         "Valeur trop grande, utilisez des chiffres plus petits !")
  344.          (setq LOAD            "CHARGER")   ; don't let this get too long
  345.          (setq SAVE            "SAUVEGARDER")   ; don't let this get too long
  346.  
  347.          (setq net_not_reg
  348.                (concatenate 'string "Vou disposez de la version COMMERCIALE D'ABUSE mais pas le serveur.\n"
  349.                             "Demandez … l'op‚rateur du serveur de lancer l'option -share ou une meilleure option,\n"
  350.                             "Achetez ABUSE, les jeux sur le r‚seau sont plus amusants parce que vous pouvez voler,\n"
  351.                             "devenez invisible et disposez de plus d'armes pour vous sortir d'affaire\n"))
  352.  
  353.          (setq server_not_reg
  354.                (concatenate 'string
  355.                             "Sur ce serveur, la version commerciale d'Abuse n'est pas disponible mais\n"
  356.                             "vous y jouez (merci !).  Pour qu'il n'y ait pas de conflit entre les deux jeux\n"
  357.                             "veuillez commencer avec l'option -share lorsque vous vous connectez … ce serveur\n"
  358.                             "exemple : abuse -net qqpart.qqchose.net -share\n"))
  359.  
  360.  
  361.  
  362.      (setq thank_you "Merci d'avoir jou‚ … Abuse !\n\n")     ; V-A
  363.  
  364.          (setq load_warn nil)
  365.          (if (not (load "register/english.lsp"))
  366.              (setq end_msg 
  367.                    (concatenate 'string 
  368.                                 "* Editer LISP/OPTIONS.LSP pour configurer quelques options pour ABUSE.\n\n"
  369.                                 "* Procurez-vous la version commerciale d'ABUSE qui sera en vente fin mars 96, et\n"                 
  370.                 "  sera jouable sur r‚seau IPX supportant huit joueurs. Elle comportera un ‚diteur\n"
  371.                 "  de niveau int‚gr‚, 17 niveaux un seul joueur (plus 12 niveaux sur le\n"
  372.                 "  r‚seau), des armes plus mortelles, \n"
  373.                                 "  des ennemis n‚fastes, de meilleurs effets sonores, et une abondance d'effets artistiques.\n\n"
  374.                                 "* Pour commander la version complŠte d'ABUSE chez Electronic Arts, appelez :\n"
  375.                                 "  USA       1-800-245-4525\n"
  376.                                 "  CANADA    604-451-3600\n"
  377.                                 "  ANGLETERRE   0753-549442\n"
  378.                                 "  FRANCE    72 17 07 83\n"
  379.                                 "  ALLEMAGNE   05241 / 24307\n"
  380.                                 "  AUSTRALIE +61(75)911 388\n"
  381.                                 "  JAPON     03-5410-3100\n\n")))  
  382.  
  383.          (setq load_warn T)
  384.  
  385.          (setq plot_start
  386.                (concatenate 'string 
  387.                             "Vous ˆtes Nick Vrenna. C'est l'ann‚e 2009.  A tort, vous avez ‚t‚ incarc‚r‚ "
  388.                             "dans une prison souterraine de haute surveillance o— ont lieu des exp‚riences g‚n‚tiques "
  389.                 " ill‚gales.\\n"                          
  390.                             "Alan Blake, … la tˆte de la recherche scientifique, a isol‚ le gˆne qui provoque "             
  391.                 "violence et agression chez les humains. Cette s‚quence g‚n‚tique appel‚e "
  392.                             '(#\") "Abuse" '(#\") " est extrˆmement infectieuse, elle engendre des transformations "             
  393.                 "horribles et provoque de monstrueux effets secondaires.  "
  394.                             "Vous ˆtes la seule personne immunis‚e contre ces effets. \\n"
  395.                             "Une ‚meute commence et dans ce d‚sordre, toutes les portes de "
  396.                 "prison s'ouvrent. TrŠs vite, les gardes, ainsi que les d‚tenus " 
  397.                             "sont contamin‚s et transform‚s en une horde de mutants qui envahissent le "
  398.                             "bƒtiment.\\n"
  399.                             "Votre seule chance pour vous enfuir est de vous revˆtir d'une armure "                    
  400.                 "de combat et d'aller … la Salle des commandes "
  401.                             "qui se trouve au niveau le plus ‚loign‚ de la structure. Mais d'abord, vous devez " 
  402.                 "empˆcher l'approvisionnement d'eau qui a ‚t‚ infect‚ par Abuse de contaminer "
  403.                             "le monde ext‚rieur. La libert‚ et le sort de l'humanit‚ sont maintenant entre vos mains. " ))
  404.      
  405.      (setq plot_middle
  406.                (concatenate 'string 
  407.                             "Vous avez surv‚cu la vague initiale de contamination, mais vous ˆtes "
  408.                 "encore perdu au fin fond de la prison "
  409.                 "Jusqu'ici, c'‚tait d'une facilit‚ suspecte. \\n"      
  410.                 "Si vous voulez vous ‚chapper, ne manquez pas de jouer … Abuse dans son int‚gralit‚. "))
  411.  
  412.  
  413.          (setq plot_end
  414.                (concatenate 'string 
  415.                             "F‚licitations ! Vous avez r‚ussi … survivre dans une situation incroyable et " 
  416.                 "vous ˆtes … la Salle de commandes.  "
  417.                             "En appuyant sur l'interrupteur, vous avez d‚tourn‚ l'arriv‚e d'eau "
  418.                 "et mis fin … la propagation d'Abuse ! "
  419.                 "VOUS L'AVEZ ECHAPPE BELLE !"))
  420.      )
  421.      
  422.      
  423.  
  424.         ('upgrade_section
  425.          (setq enter_old_dir   "Entrez le r‚pertoire de la version commerciale ult‚rieure d'ABUSE")
  426.          (setq dir_not_here    "Le r‚pertoire n'existe pas : ")
  427.          (setq already_updated "Cette version d'ABUSE est d‚j… mise … jour")
  428.          (setq updating        "Mise … jour des fichiers, veuillez attendre")
  429.          (setq yes-key         "O")
  430.          (setq no-key          "N")
  431.          (setq complete_title  "La nouvelle version shareware a ‚t‚ mise … jour")
  432.          (setq remove_old_reg  "Effacer l'ancienne version commerciale ? (O/N)"))
  433. )
  434.  
  435.  
  436.  
  437.